﻿Imports System.IO

Public Class Config
    Dim dsConfig As DataSet
    Dim archivo As String

    Private Sub Config_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ruta_programa = Application.StartupPath
        archivo = ruta_programa & "\Config.xml"

        If File.Exists(archivo) Then
            Me.Size = New Size(450, 510)
            carga_archivo()
            Me.Refresh()
        Else
            Me.Size = New Size(450, 100)
        End If
    End Sub

    
    Private Sub btnCrearA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCrearA.Click
        If File.Exists(ruta_programa & "\Config.xml") Then
            If MessageBox.Show("Esta acción remplazará el archivo de configuracion" & vbCrLf & vbCrLf & "Desea continuar?", "Advertencia", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) = Windows.Forms.DialogResult.No Then
                Exit Sub
            End If
            File.Delete(archivo)
        End If

        dsConfig = New DataSet("Config")
        Dim fila As DataRow

        Dim empresa As New DataTable("EMPRESA")
        empresa.Columns.Add("Concepto", GetType(String))
        empresa.Columns.Add("Valor", GetType(String))
        fila = empresa.NewRow
        fila("Concepto") = "Nombre"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Departamento"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "RFC"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "ID del Vendedor"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Nombre del Vendedor"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Serie"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Pedido"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "ID Empleado en SAE"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Impresora Tickets"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Impresora Reportes"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Vista Previa"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Filtro Contado"
        empresa.Rows.Add(fila)
        fila = empresa.NewRow
        fila("Concepto") = "Nuevo Cliente"
        empresa.Rows.Add(fila)

        Dim fijos As New DataTable("FIJOS")
        fijos.Columns.Add("Concepto", GetType(String))
        fijos.Columns.Add("Valor", GetType(String))
        fila = fijos.NewRow
        fila("Concepto") = "Moneda"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "Entrega"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "Almacen"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "Tipo de Cambio"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "IVA"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "Empresa"
        fijos.Rows.Add(fila)
        fila = fijos.NewRow
        fila("Concepto") = "Cliente Mostrador"
        fijos.Rows.Add(fila)

        Dim sae As New DataTable("SAE")
        sae.Columns.Add("Concepto", GetType(String))
        sae.Columns.Add("Valor", GetType(String))
        fila = sae.NewRow
        fila("Concepto") = "Servidor"
        sae.Rows.Add(fila)
        fila = sae.NewRow
        fila("Concepto") = "Base de Datos"
        sae.Rows.Add(fila)
        fila = sae.NewRow
        fila("Concepto") = "Usuario"
        sae.Rows.Add(fila)
        fila = sae.NewRow
        fila("Concepto") = "Password"
        sae.Rows.Add(fila)
        

        dsConfig.Tables.Add(empresa)
        dsConfig.Tables.Add(fijos)
        dsConfig.Tables.Add(sae)

        dsConfig.WriteXml(archivo, XmlWriteMode.WriteSchema)

        MessageBox.Show("El archivo se ha creado con éxito", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

        carga_archivo()
    End Sub

    Private Sub carga_archivo()
        dsConfig = New DataSet
        dsConfig.ReadXml(archivo)

        dgEmpresa.DataSource = dsConfig.Tables("EMPRESA")
        dgFijos.DataSource = dsConfig.Tables("FIJOS")
        dgSAE.DataSource = dsConfig.Tables("SAE")

        dgEmpresa.Columns(0).ReadOnly = True
        dgFijos.Columns(0).ReadOnly = True
        dgSAE.Columns(0).ReadOnly = True

        pDatos.Visible = True
        Me.Size = New Size(450, 510)
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        dsConfig.WriteXml(archivo, XmlWriteMode.WriteSchema)

        MessageBox.Show("El archivo se ha guardado con éxito", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
End Class
